CREATE OR REPLACE PROCEDURE ocijeni IS
CURSOR c IS SELECT indeks,k1,k2,a,i FROM bpispit FOR UPDATE OF ukupno,ocjena;
zbir NUMBER;
BEGIN
FOR red IN c loop
 IF isp(red.indeks)='IZASAO' THEN
 zbir:=nvl(red.k1,0)+nvl(red.k2,0)+nvl(red.a,0)+nvl(red.i,0);
    IF zbir>=50 AND zbir<60 THEN
       UPDATE bpispit SET ocjena='E' WHERE CURRENT OF c; 
    elsif zbir>=60 AND zbir<70 THEN
       UPDATE bpispit SET ocjena='D' WHERE CURRENT OF c; 
    elsif zbir>=70 AND zbir<80 THEN
       UPDATE bpispit SET ocjena='C' WHERE CURRENT OF c; 
    elsif zbir>=80 AND zbir<90 THEN
       UPDATE bpispit SET ocjena='B' WHERE CURRENT OF c; 
    elsif zbir>=90 THEN
       UPDATE bpispit SET ocjena='A' WHERE CURRENT OF c; 
    ELSE
       UPDATE bpispit SET ocjena='F' WHERE CURRENT OF c;
    END IF;
  ELSE
    UPDATE bpispit SET ocjena='N' WHERE CURRENT OF c;
  END IF;
END loop;
END;